home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / makeLikeFiles.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-26  |  539b  |  20 lines
  1. /* simply create like files in T: directory to test RenameOther.rexx */
  2.  
  3. /* if run from MegaD change address to REXX to prevent return values 
  4.     from being used as ARexx commands to MegaD
  5. */
  6. ADDRESS REXX
  7. name  = 'T:likeFile'
  8. number = 1
  9. do 20
  10.     filename = name || RIGHT(number,2,'0')
  11.     SAY filename
  12.     OPEN('file',filename,'w');
  13.     WRITELN('file',number)
  14.     CLOSE('file')
  15. /* un-comment if you want to test with a phony .info file for each file */
  16. /*     ADDRESS COMMAND COPY 'sys:system/shell.info' to filename || '.info' */
  17.     number = number + 1
  18.     end
  19.  
  20.